/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_05 / dumpprogs / rmlinker

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 43 f4 20 3e 20 | 52 4d 6c 69 6e 6b 65 72 |..dC. > |RMlinker|
|00000010| 20 20 20 20 20 20 20 20 | 3a 20 41 73 73 65 6d 62 |        |: Assemb|
|00000020| 6c 65 73 20 26 20 6c 69 | 6e 6b 73 20 4d 69 6e 69 |les & li|nks Mini|
|00000030| 44 75 6d 70 52 4d 20 6f | 62 6a 65 63 74 20 63 6f |DumpRM o|bject co|
|00000040| 64 65 2e 0d 00 6e 26 f4 | 20 56 65 72 73 69 6f 6e |de...n&.| Version|
|00000050| 20 33 2e 30 30 20 20 20 | 20 20 20 3a 20 35 74 68 | 3.00   |   : 5th|
|00000060| 20 44 65 63 20 31 39 38 | 37 0d 00 78 29 f4 20 43 | Dec 198|7..x). C|
|00000070| 6f 70 79 72 69 67 68 74 | 20 20 20 20 20 20 20 20 |opyright|        |
|00000080| 20 3a 20 41 42 41 43 55 | 53 20 54 52 41 49 4e 49 | : ABACU|S TRAINI|
|00000090| 4e 47 0d 00 82 05 3a 0d | 00 8c 05 3a 0d 00 96 49 |NG....:.|...:...I|
|000000a0| f4 20 41 73 73 65 6d 62 | 6c 65 73 20 26 20 6c 69 |. Assemb|les & li|
|000000b0| 6e 6b 73 20 6f 62 6a 65 | 63 74 20 63 6f 64 65 20 |nks obje|ct code |
|000000c0| 77 68 69 63 68 20 77 69 | 6c 6c 20 72 75 6e 20 61 |which wi|ll run a|
|000000d0| 73 20 72 65 6c 6f 63 61 | 74 61 62 6c 65 20 6d 6f |s reloca|table mo|
|000000e0| 64 75 6c 65 2e 0d 00 a0 | 41 f4 20 54 68 65 20 61 |dule....|A. The a|
|000000f0| 73 73 65 6d 62 6c 65 64 | 20 63 6f 64 65 20 69 73 |ssembled| code is|
|00000100| 20 61 20 6d 69 6e 69 20 | 73 63 72 65 65 6e 20 64 | a mini |screen d|
|00000110| 75 6d 70 20 77 69 74 68 | 20 33 20 70 61 72 61 6d |ump with| 3 param|
|00000120| 65 74 65 72 73 2e 0d 00 | aa 3f f4 20 54 68 65 20 |eters...|.?. The |
|00000130| 28 6f 70 74 69 6f 6e 61 | 6c 29 20 70 61 72 61 6d |(optiona|l) param|
|00000140| 65 74 65 72 73 20 6f 66 | 20 74 68 65 20 72 65 6c |eters of| the rel|
|00000150| 6f 63 61 74 61 62 6c 65 | 20 6d 6f 64 75 6c 65 20 |ocatable| module |
|00000160| 61 72 65 3a 2d 0d 00 b4 | 2a f4 20 3c 6d 61 72 67 |are:-...|*. <marg|
|00000170| 69 6e 3e 20 20 20 20 54 | 68 65 20 70 72 69 6e 74 |in>    T|he print|
|00000180| 65 72 20 6c 65 66 74 20 | 6d 61 72 67 69 6e 2e 0d |er left |margin..|
|00000190| 00 be 49 f4 20 3c 74 68 | 72 65 73 68 6f 6c 64 3e |..I. <th|reshold>|
|000001a0| 20 49 66 20 74 68 65 20 | 70 69 78 65 6c 20 6c 6f | If the |pixel lo|
|000001b0| 67 69 63 61 6c 20 63 6f | 6c 6f 75 72 3e 74 68 72 |gical co|lour>thr|
|000001c0| 65 73 68 6f 6c 64 20 74 | 68 65 6e 20 70 72 69 6e |eshold t|hen prin|
|000001d0| 74 20 61 20 64 6f 74 2e | 0d 00 c8 3e f4 20 3c 70 |t a dot.|...>. <p|
|000001e0| 72 69 6e 74 6d 6f 64 65 | 3e 20 50 72 69 6e 74 65 |rintmode|> Printe|
|000001f0| 72 20 67 72 61 70 68 69 | 63 73 20 6d 6f 64 65 2c |r graphi|cs mode,|
|00000200| 20 77 68 69 63 68 20 6d | 75 73 74 20 62 65 20 35 | which m|ust be 5|
|00000210| 20 6f 72 20 37 2e 0d 00 | d2 05 3a 0d 00 dc 05 3a | or 7...|..:....:|
|00000220| 0d 00 e6 24 f4 20 44 65 | 66 69 6e 65 20 74 68 65 |...$. De|fine the|
|00000230| 20 65 66 66 65 63 74 20 | 6f 66 20 61 6e 20 65 72 | effect |of an er|
|00000240| 72 6f 72 2e 0d 00 f0 23 | ee 20 85 20 ef 20 32 36 |ror....#|. . . 26|
|00000250| 2c 31 32 3a f6 3a f1 20 | 22 20 61 74 20 6c 69 6e |,12:.:. |" at lin|
|00000260| 65 20 22 3b 9e 3a fa 0d | 00 fa 13 f4 20 53 65 74 |e ";.:..|.... Set|
|00000270| 20 74 68 65 20 6d 6f 64 | 65 2e 0d 01 04 07 eb 20 | the mod|e...... |
|00000280| 33 0d 01 0e 05 3a 0d 01 | 18 05 3a 0d 01 22 1f f4 |3....:..|..:.."..|
|00000290| 20 44 65 63 6c 61 72 65 | 20 67 6c 6f 62 61 6c 20 | Declare| global |
|000002a0| 76 61 72 69 61 62 6c 65 | 73 2e 0d 01 2c 3d de 20 |variable|s...,=. |
|000002b0| 6f 62 6a 65 63 74 63 6f | 64 65 73 74 61 72 74 25 |objectco|destart%|
|000002c0| 20 26 36 30 30 20 3a f4 | 20 4d 61 6b 65 20 72 6f | &600 :.| Make ro|
|000002d0| 6f 6d 20 66 6f 72 20 74 | 68 65 20 6f 62 6a 65 63 |om for t|he objec|
|000002e0| 74 20 63 6f 64 65 2e 0d | 01 36 46 6f 62 6a 65 63 |t code..|.6Fobjec|
|000002f0| 74 63 6f 64 65 65 6e 64 | 25 20 20 3d 30 20 3a f4 |tcodeend|%  =0 :.|
|00000300| 20 54 68 65 20 61 64 64 | 72 65 73 73 20 6f 66 20 | The add|ress of |
|00000310| 74 68 65 20 20 65 6e 64 | 20 20 6f 66 20 74 68 65 |the  end|  of the|
|00000320| 20 6f 62 6a 65 63 74 20 | 63 6f 64 65 2e 0d 01 40 | object |code...@|
|00000330| 49 70 6f 69 6e 74 65 72 | 25 20 20 20 20 20 20 20 |Ipointer|%       |
|00000340| 20 3d 30 20 3a f4 20 54 | 68 65 20 61 64 64 72 65 | =0 :. T|he addre|
|00000350| 73 73 20 6f 66 20 74 68 | 65 20 73 74 61 72 74 20 |ss of th|e start |
|00000360| 6f 66 20 65 61 63 68 20 | 62 6c 6f 63 6b 20 6f 66 |of each |block of|
|00000370| 20 63 6f 64 65 2e 0d 01 | 4a 05 3a 0d 01 5e 1c 70 | code...|J.:..^.p|
|00000380| 61 74 68 6e 61 6d 65 24 | 3d 22 24 2e 44 75 6d 70 |athname$|="$.Dump|
|00000390| 50 72 6f 67 73 2e 22 0d | 01 68 46 66 69 6c 65 6e |Progs.".|.hFfilen|
|000003a0| 61 6d 65 24 3d 22 4d 69 | 6e 69 44 75 6d 70 52 4d |ame$="Mi|niDumpRM|
|000003b0| 22 20 20 3a f4 20 54 68 | 65 20 66 69 6c 65 20 6e |"  :. Th|e file n|
|000003c0| 61 6d 65 20 6f 66 20 74 | 68 65 20 73 61 76 65 64 |ame of t|he saved|
|000003d0| 20 6f 62 6a 65 63 74 20 | 63 6f 64 65 2e 0d 01 72 | object |code...r|
|000003e0| 05 3a 0d 01 7c 05 3a 0d | 01 86 05 3a 0d 03 e8 13 |.:..|.:.|...:....|
|000003f0| f4 20 43 6f 72 65 20 73 | 65 63 74 69 6f 6e 2e 0d |. Core s|ection..|
|00000400| 03 f2 46 f4 20 4c 6f 61 | 64 20 74 68 65 20 46 4e |..F. Loa|d the FN|
|00000410| 73 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 74 68 65 |s contai|ning the|
|00000420| 20 74 77 6f 20 62 6c 6f | 63 6b 73 20 6f 66 20 61 | two blo|cks of a|
|00000430| 73 73 65 6d 62 6c 65 72 | 20 73 6f 75 72 63 65 20 |ssembler| source |
|00000440| 63 6f 64 65 2e 0d 03 fc | 41 c8 9b 20 22 24 2e 44 |code....|A.. "$.D|
|00000450| 75 6d 70 50 72 6f 67 73 | 2e 52 48 73 6f 75 72 63 |umpProgs|.RHsourc|
|00000460| 65 46 4e 22 20 3a f4 20 | 54 68 65 20 72 65 6c 6f |eFN" :. |The relo|
|00000470| 63 61 74 61 62 6c 65 20 | 6d 6f 64 75 6c 65 20 68 |catable |module h|
|00000480| 65 61 64 65 72 2e 0d 04 | 06 38 c8 9b 20 22 24 2e |eader...|.8.. "$.|
|00000490| 44 75 6d 70 50 72 6f 67 | 73 2e 52 43 73 6f 75 72 |DumpProg|s.RCsour|
|000004a0| 63 65 46 4e 22 20 3a f4 | 20 54 68 65 20 72 65 6c |ceFN" :.| The rel|
|000004b0| 6f 63 61 74 61 62 6c 65 | 20 63 6f 64 65 2e 0d 04 |ocatable| code...|
|000004c0| 10 05 3a 0d 04 1a 47 70 | 6f 69 6e 74 65 72 25 3d |..:...Gp|ointer%=|
|000004d0| 6f 62 6a 65 63 74 63 6f | 64 65 73 74 61 72 74 25 |objectco|destart%|
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004f0| 3a f4 20 49 6e 69 74 69 | 61 6c 69 73 65 20 74 68 |:. Initi|alise th|
|00000500| 65 20 70 6f 69 6e 74 65 | 72 2e 0d 04 24 05 3a 0d |e pointe|r...$.:.|
|00000510| 04 2e 45 70 6f 69 6e 74 | 65 72 25 3d a4 61 73 73 |..Epoint|er%=.ass|
|00000520| 65 6d 62 6c 65 5f 4d 69 | 6e 69 44 75 6d 70 41 50 |emble_Mi|niDumpAP|
|00000530| 28 70 6f 69 6e 74 65 72 | 25 29 20 3a f4 20 52 65 |(pointer|%) :. Re|
|00000540| 73 65 74 20 74 6f 20 65 | 6e 64 20 6f 66 20 62 6c |set to e|nd of bl|
|00000550| 6f 63 6b 2e 0d 04 38 45 | 70 6f 69 6e 74 65 72 25 |ock...8E|pointer%|
|00000560| 3d a4 61 73 73 65 6d 62 | 6c 65 5f 4d 69 6e 69 44 |=.assemb|le_MiniD|
|00000570| 75 6d 70 41 43 28 70 6f | 69 6e 74 65 72 25 29 20 |umpAC(po|inter%) |
|00000580| 3a f4 20 52 65 73 65 74 | 20 74 6f 20 65 6e 64 20 |:. Reset| to end |
|00000590| 6f 66 20 62 6c 6f 63 6b | 2e 0d 04 42 05 3a 0d 04 |of block|...B.:..|
|000005a0| 4c 45 6f 62 6a 65 63 74 | 63 6f 64 65 65 6e 64 25 |LEobject|codeend%|
|000005b0| 3d 70 6f 69 6e 74 65 72 | 25 20 20 20 20 20 20 20 |=pointer|%       |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 50 6f |        |   :. Po|
|000005d0| 69 6e 74 20 74 6f 20 65 | 6e 64 20 6f 66 20 63 6f |int to e|nd of co|
|000005e0| 64 65 2e 0d 04 56 05 3a | 0d 04 60 05 3a 0d 04 6a |de...V.:|..`.:..j|
|000005f0| 6b ff 28 22 53 41 56 45 | 20 22 2b 70 61 74 68 6e |k.("SAVE| "+pathn|
|00000600| 61 6d 65 24 2b 66 69 6c | 65 6e 61 6d 65 24 2b 22 |ame$+fil|ename$+"|
|00000610| 20 22 2b c3 7e 28 6f 62 | 6a 65 63 74 63 6f 64 65 | "+.~(ob|jectcode|
|00000620| 73 74 61 72 74 25 29 2b | 22 20 22 2b c3 7e 28 6f |start%)+|" "+.~(o|
|00000630| 62 6a 65 63 74 63 6f 64 | 65 65 6e 64 25 29 29 20 |bjectcod|eend%)) |
|00000640| 3a f4 20 53 61 76 65 20 | 74 68 65 20 6f 62 6a 65 |:. Save |the obje|
|00000650| 63 74 20 63 6f 64 65 2e | 0d 04 74 44 ff 28 22 53 |ct code.|..tD.("S|
|00000660| 45 54 54 59 50 45 20 22 | 2b 70 61 74 68 6e 61 6d |ETTYPE "|+pathnam|
|00000670| 65 24 2b 66 69 6c 65 6e | 61 6d 65 24 2b 22 20 26 |e$+filen|ame$+" &|
|00000680| 46 46 41 22 29 20 3a f4 | 20 53 65 74 20 74 79 70 |FFA") :.| Set typ|
|00000690| 65 20 61 73 20 4d 6f 64 | 75 6c 65 2e 0d 04 7e 41 |e as Mod|ule...~A|
|000006a0| ff 28 22 53 54 41 4d 50 | 20 20 20 22 2b 70 61 74 |.("STAMP|   "+pat|
|000006b0| 68 6e 61 6d 65 24 2b 66 | 69 6c 65 6e 61 6d 65 24 |hname$+f|ilename$|
|000006c0| 29 20 20 20 20 20 20 20 | 20 20 3a f4 20 44 61 74 |)       |  :. Dat|
|000006d0| 65 20 73 74 61 6d 70 20 | 66 69 6c 65 2e 0d 04 88 |e stamp |file....|
|000006e0| 05 3a 0d 04 92 05 3a 0d | 04 9c 05 e0 0d 04 a6 05 |.:....:.|........|
|000006f0| 3a 0d ff                |                         |:..     |        |
+--------+-------------------------+-------------------------+--------+--------+